home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source2.lha / source / amiga / Potgo.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.3 KB  |  60 lines
  1. (**************************************************************************
  2.  
  3.      $RCSfile: Potgo.mod $
  4.   Description: Interface to potgo.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: potgo.h 36.0 (13.4.90)
  12.   $VER: potgo_protos.h 36.3 (7.11.90)
  13.   Includes Release 40.15
  14.  
  15.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  16.       All Rights Reserved
  17.  
  18.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  19.   This file is part of the Oberon-A Interface.
  20.   See Oberon-A.doc for conditions of use and distribution.
  21.  
  22. ***************************************************************************)
  23.  
  24. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  25. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  26. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  27.  
  28. MODULE [2] Potgo;
  29.  
  30. IMPORT e := Exec, s := Sets;
  31.  
  32.  
  33. CONST
  34.  
  35.   potgoName * = "potgo.resource";
  36.  
  37.  
  38. (*-- Resource Base variable --------------------------------------------*)
  39.  
  40. VAR
  41.  
  42.   base * : e.APTR;
  43.  
  44.  
  45. (*-- Resource Functions ------------------------------------------------*)
  46.  
  47.  
  48. PROCEDURE AllocPotBits* [base,-6]
  49.   ( bits [0] : s.SET16 ) : s.SET16;
  50. PROCEDURE FreePotBits* [base,-12]
  51.   ( bits [0] : s.SET16 );
  52. PROCEDURE WritePotgo* [base,-18]
  53.   ( word [0] : s.SET16;
  54.     mask [1] : s.SET16 );
  55.  
  56. BEGIN base := NIL
  57. END Potgo.
  58.  
  59.  
  60.